home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xclasshint.t < prev    next >
Text File  |  1990-06-01  |  678b  |  21 lines
  1. (herald xclasshint (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XCLASSHINT) (CONS 'XCLASSHINTP (MAKE-BYTEV 8)))
  3. (DEFINE (XCLASSHINT-RES_NAME X)
  4.         ((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
  5.          (CHK-XCLASSHINTP X)
  6.          0))
  7. (DEFINE (XCLASSHINT-RES_NAME! X Y)
  8.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
  9.          (CHK-XCLASSHINTP X)
  10.          0
  11.          Y))
  12. (DEFINE (XCLASSHINT-RES_CLASS X)
  13.         ((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
  14.          (CHK-XCLASSHINTP X)
  15.          4))
  16. (DEFINE (XCLASSHINT-RES_CLASS! X Y)
  17.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
  18.          (CHK-XCLASSHINTP X)
  19.          4
  20.          Y))
  21.